RCAD script
1.00
trou
trouup.bmp
troudown.bmp
0
0
1




















Dim s_x1,s_y1,s_x2,s_y2,s_dx,s_dy as double

s_dx = lastx - firstx
s_dy = lasty - firsty
if s_dx <> 0 and s_dy <> 0 then
    s_x1 = firstx + 4 * s_dx / abs(s_dx)
    s_y1 = firsty + 4 * s_dy / abs(s_dy)
    s_x2 = lastx - 4 * s_dx / abs(s_dx)
    s_y2 = lasty - 4 * s_dy / abs(s_dy)
    Add_Polygon(s_x1,s_y1,0.75,7,7,True,False, 100, 100)
    Add_PointToPolygon(s_x2,s_y1)
    Add_PointToPolygon(s_x2,s_y1+ 0.5)
    Add_PointToPolygon(s_x1 + 4 * s_dx / abs(s_dx),s_y1 + 4 * s_dy / abs(s_dy))
    Add_PointToPolygon(s_x1+ 0.5,s_y2)
    Add_PointToPolygon(s_x1,s_y2)
    Add_PointToPolygon(s_x1,s_y1)
end if



